home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / icon / czesc_2 / magicexpansion / install / install_me next >
Text File  |  1994-10-23  |  6KB  |  258 lines
  1. ; $VER: Install_ME 1.4.1 (23.10.94)
  2. ; Copyright © 1994 by Johannes Beigel
  3. ; GIFTWARE
  4.  
  5. ( set @default-dest "SYS:" )
  6. ( set vernum ( getversion "exec.library" ( resident ) ) )
  7. ( set ver ( / vernum 65536 ) )
  8.  
  9. ( if ( = @language "deutsch" )
  10.   ( set lang 0 )
  11.   ( set lang 1 )
  12. )
  13.  
  14. ( complete 0 )
  15.  
  16. ; --------------------
  17. ; Ask what to install
  18. ; --------------------
  19.  
  20. ( set parts
  21.   ( askoptions
  22.     ( prompt ( select lang "Wählen Sie aus, was Sie installieren möchten."
  23.                            "Select what you want to install." )
  24.     )
  25.     ( choices
  26.       ( select lang "C-Include-File" "C include file" )
  27.       ( select lang "MUI-Image-Sets" "MUI-image sets" )
  28.       ( select lang "Paletten" "Palettes" )
  29.       "Patterns"
  30.       ( select lang "OS 2.x Fenster-Patterns" "OS 2.x window patterns" )
  31.       ( select lang "Mouse-Pointer" "Mouse pointers" )
  32.     )
  33.     ( help
  34.       ( select lang
  35.         ( cat
  36.           "C-Include-File: Nützliche neue Defintionen für's MUI-Programmieren\n\n"
  37.           "MUI-Image-Sets: Neue MUI-Image-Sets\n\n"
  38.           "Paletten: Ein paar neue Paletten (Alternativen zur Original-MagicWB-Palette)\n\n"
  39.           "Patterns: Neue Workbench-Hintergrund-Muster\n\n"
  40.           "OS 2.x Fenster-Patterns: \"alte\" Fenster-Patterns für den \"WBPattern\" Prefs-Ed\n\n"
  41.           "Mouse-Pointer: Mehrere normale Mauszeiger und Busy-Pointer"
  42.         )
  43.         ( cat
  44.           "C include file: Useful new definitions for MUI programming\n\n"
  45.           "MUI image sets: New MUI image sets\n\n"
  46.           "Palettes: A few new palettes (alternatives to the original MagicWB palette)\n\n"
  47.           "Patterns: New Workbench background patterns\n\n"
  48.           "OS 2.x window patterns: old-style window patterns for the \"WBPattern\" prefs-ed\n\n"
  49.           "Mouse pointers: Several normal and busy mouse pointers."
  50.         )
  51.       )
  52.     )
  53.   )
  54. )
  55.  
  56. ( complete 14 )
  57.   
  58. ; --------------------
  59. ; Install the include file
  60. ; --------------------
  61.  
  62. ( if ( IN parts 0 )
  63.   (
  64.     ( set includedest
  65.       ( askdir
  66.         ( prompt
  67.           ( select lang "Wählen Sie ein Verzeichnis für das Include-File."
  68.                         "Select a directory for the include file."
  69.           )
  70.         )
  71.         ( default "INCLUDE:libraries/" )
  72.         ( help @askdir-help )
  73.       )
  74.     )
  75.  
  76.     ( makedir includedest )
  77.     ( copyfiles
  78.       ( prompt ( select lang "Kopiere Include-File." "Copying include file." ) )
  79.       ( source "/include/libraries/muidefs.h" )
  80.       ( dest includedest )
  81.     )
  82.   )
  83. )
  84.  
  85. ( complete 28 )
  86.  
  87. ; --------------------
  88. ; Install the MUI image sets
  89. ; --------------------
  90.  
  91. ( if( IN parts 1 )
  92.   (
  93.  
  94.     ( set imgsetsdest
  95.       ( askdir
  96.         ( prompt
  97.           ( select lang "Wählen Sie ein Verzeichnis für die MUI-Image-Sets."
  98.                         "Select a directory for the MUI-image sets."
  99.           )
  100.         )
  101.         ( default "SYS:Prefs/MUI-Images" )
  102.         ( help @askdir-help )
  103.       )
  104.     )
  105.  
  106.     ( copyfiles
  107.       ( prompt ( select lang "Kopiere MUI-Image-Sets." "Copying MUI-image sets." ) )
  108.       ( source "/MUI-Images" )
  109.       ( all )
  110.       ( dest imgsetsdest )
  111.       ( confirm )
  112.       ( help @copyfiles-help )
  113.     )
  114.  
  115.   )
  116. )
  117.  
  118. ( complete 42 )
  119.  
  120. ; --------------------
  121. ; Install the palettes
  122. ; --------------------
  123.  
  124. ( if( IN parts 2 )
  125.   (
  126.     ( set palettedest
  127.       ( askdir
  128.         ( prompt
  129.           ( select lang "Wählen Sie ein Verzeichnis für die Paletten."
  130.                         "Select a directory for the palettes."
  131.           )
  132.         )
  133.         ( default "SYS:Prefs/Presets" )
  134.         ( help @askdir-help )
  135.       )
  136.     )
  137.    
  138.     ( if ( < ver 39 )
  139.       (
  140.         ( copyfiles
  141.           ( prompt ( select lang "Kopiere OS 2.x Paletten." "Copying OS 2.x palettes." ) )
  142.           ( source "/OS2Palettes" )
  143.           ( all )
  144.           ( dest palettedest )
  145.           ( confirm )
  146.           ( help @copyfiles-help )
  147.         )
  148.       )
  149.       (
  150.         ( copyfiles
  151.           ( prompt ( select lang "Kopiere OS 3.x Paletten." "Copying OS 3.x palettes." ) )
  152.           ( source "/OS3Palettes" )
  153.           ( all )
  154.           ( dest palettedest )
  155.           ( confirm )
  156.           ( help @copyfiles-help )
  157.         )
  158.       )
  159.     )
  160.   )
  161. )
  162.  
  163. ( complete 56 )
  164.  
  165. ; --------------------
  166. ; Install the background patterns
  167. ; --------------------
  168.  
  169. ( if( IN parts 3 )
  170.   (
  171.  
  172.     ( set patdest
  173.       ( askdir
  174.         ( prompt
  175.           ( select lang "Wählen Sie ein Verzeichnis für die Hintergrund-Muster."
  176.                         "Select a directory for the background patterns."
  177.           )
  178.         )
  179.         ( default "SYS:Prefs/Patterns" )
  180.         ( help @askdir-help )
  181.       )
  182.     )
  183.  
  184.     ( copyfiles
  185.       ( prompt ( select lang "Kopiere Background-Patterns." "Copying background patterns." ) )
  186.       ( source "/Patterns" )
  187.       ( all )
  188.       ( dest patdest )
  189.       ( confirm )
  190.       ( help @copyfiles-help )
  191.     )
  192.   )
  193. )
  194.  
  195. ( complete 70 )
  196.  
  197. ; --------------------
  198. ; Install the 2.x background patterns
  199. ; --------------------
  200.  
  201. ( if( IN parts 4 )
  202.   (
  203.     ( set winpatdest
  204.       ( askdir
  205.         ( prompt
  206.           ( select lang "Wählen Sie ein Verzeichnis für die OS 2.x Fenster-Hintergrund-Muster."
  207.                         "Select a directory for the OS 2.x window background patterns."
  208.           )
  209.         )
  210.         ( default "SYS:Prefs/Presets" )
  211.         ( help @askdir-help )
  212.       )
  213.     )
  214.  
  215.     ( copyfiles
  216.       ( prompt ( select lang "Kopiere OS 2.x Window-Patterns." "Copying OS 2.x window patterns." ) )
  217.       ( source "/OS2WinPatterns" )
  218.       ( all )
  219.       ( dest winpatdest )
  220.       ( confirm )
  221.       ( help @copyfiles-help )
  222.     )
  223.   )
  224. )
  225.  
  226. ( complete 84 )
  227.  
  228. ; --------------------
  229. ; Install the mouse pointers
  230. ; --------------------
  231.  
  232. ( if( IN parts 5 )
  233.   (
  234.     ( set ptrdest
  235.       ( askdir
  236.         ( prompt
  237.           ( select lang "Wählen Sie ein Verzeichnis für die Mauszeiger."
  238.                         "Select a directory for the mouse pointers."
  239.           )
  240.         )
  241.         ( default "SYS:Prefs/Presets" )
  242.         ( help @askdir-help )
  243.       )
  244.     )
  245.  
  246.     ( copyfiles
  247.       ( prompt ( select lang "Kopiere Mouse-Pointer." "Copying mouse pointers." ) )
  248.       ( source "/Pointers" )
  249.       ( all )
  250.       ( dest ptrdest )
  251.       ( confirm )
  252.       ( help @copyfiles-help )
  253.     )
  254.   )
  255. )
  256.  
  257. ( complete 100 )
  258.